


(in-package :gen-res)



(defmacro set-ms (n &rest body)
  `(set-res 'mile-stone ,n ,@body))
  ;`(defparameter ,n (list 'res 'mile-stone 'name (string (quote ,n)) ,@body)))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

( set-res 'subsystem tkru)
( set-res 'subsystem icon 'component-of tkru)

(defparameter *configuration-items*
  (list
   tkru icon
   ))


(set-res 'mile-stone icon-release-1-sb-210-greater-than-25hp
         'target-date "2013-01-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-1-sb-210-less-than-25hp
         'target-date "2013-05-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-2-spectrum
         'target-date "2013-01-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-2-sb-110
         'target-date "2013-12-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-2-sb-310
         'target-date "2014-01-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-3-spectrum-de
         'target-date "2014-01-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-3-sb-210-cofc-tofc
         'target-date "2014-11-30"
         'applies-to-subsystem icon
         )
(set-res 'mile-stone icon-release-3-sb-210-cofc-rbc
         'target-date "2014-11-30"
         'applies-to-subsystem icon
         )

(defparameter *mile-stones* 
  (list 
   icon-release-1-sb-210-greater-than-25hp icon-release-1-sb-210-less-than-25hp icon-release-2-spectrum icon-release-2-sb-110 icon-release-2-sb-310 icon-release-3-spectrum-de icon-release-3-sb-210-cofc-tofc icon-release-3-sb-210-cofc-rbc
   ))
   
   
   